home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / aescalls.def next >
Text File  |  1992-03-11  |  7KB  |  214 lines
  1. DEFINITION MODULE AEScalls;
  2.  
  3. (*
  4.  *    Copyright (c) 1987,1988,1989 by
  5.  *    ana-systems, Foster City, California.
  6.  *    All Rights Reserved.
  7.  *
  8.  *    This software is furnished under a license and may be used and copied
  9.  *    only in accordance with the  terms of such license and  with the
  10.  *    inclusion of the above copyright notice. This software or any other
  11.  *    copies thereof may not be provided or otherwise made available to any
  12.  *    other  person.  No title to and ownership of the  software is herby
  13.  *    transferred.
  14.  *
  15.  *    The information in this software is  subject to change without notice
  16.  *    and  should  not be construed as a commitment by ana-systems.  No
  17.  *    warranty is implied or expressed.
  18.  *)
  19.  
  20. FROM SYSTEM IMPORT ADDRESS,SHORTWORD;
  21.  
  22. EXPORT QUALIFIED VDI,contrl,global,intin,ptsin,intout,ptsout,addrin,addrout,
  23.                  ApplInit,ApplRead,ApplWrite,ApplFind,ApplTPlay,
  24.                  ApplTRecord,ApplExit,EvntKeybd,EvntButton,EvntMouse,
  25.                  EvntMesag,EvntTimer,EvntMulti,EvntDClick,MenuBar,
  26.                  MenuICheck,MenuIEnable,MenuTNormal,MenuText,MenuRegister,
  27.                  ObjcAdd,ObjcDelete,ObjcDraw,ObjcFind,ObjcOffset,
  28.                  ObjcOrder,ObjcEdit,ObjcChange,FormDo,FormDial,FormAlert,
  29.                  FormError,FormCenter,GrafRubberBox,GrafDragBox,
  30.                  GrafMBox,GrafGrowBox,GrafShrinkBox,GrafWatchBox,
  31.                  GrafSlideBox,GrafHandle,GrafMouse,GrafMKState,ScrpRead,
  32.                  ScrpWrite,FselInput,WindCreate,WindOpen,WindClose,
  33.                  WindDelete,WindGet,WindSet,WindFind,WindUpdate,WindCalc,
  34.                  RsrcLoad,RsrcFree,RsrcGaddr,RsrcSaddr,RsrcObfix,
  35.                  ShelRead,ShelWrite,ShelFind,ShelEnvrn;
  36.  
  37. TYPE 
  38.    ParamArr128 = ARRAY [0..127] OF SHORTWORD;
  39.    ParamArr15  = ARRAY [0..14]  OF SHORTWORD;
  40.    ParamArr12  = ARRAY [0..11]  OF SHORTWORD;
  41.    ParamArr2   = ARRAY [0..1]   OF ADDRESS;
  42. VAR
  43.    aespb   : ARRAY [0..5] OF ADDRESS;
  44.    vdipb   : ARRAY [0..4] OF ADDRESS; 
  45.    contrl  : ParamArr12;
  46.    global  : ParamArr15;
  47.    intin   : ParamArr128;
  48.    intout  : ParamArr128;
  49.    ptsin   : ParamArr128;
  50.    ptsout  : ParamArr128;
  51.    addrin  : ParamArr2;
  52.    addrout : ADDRESS;
  53.    
  54. PROCEDURE VDI;    (* Call VDI trap 2. *)
  55.  
  56. PROCEDURE ApplInit():INTEGER;
  57.  
  58. PROCEDURE ApplRead(apID,numBytes:INTEGER; 
  59.                     VAR buffer:ARRAY OF INTEGER):INTEGER;
  60.  
  61. PROCEDURE ApplWrite(apID,numBytes:INTEGER; 
  62.                     VAR buffer:ARRAY OF INTEGER):INTEGER;
  63.  
  64. PROCEDURE ApplFind(VAR name:ARRAY OF CHAR):INTEGER;
  65.  
  66. PROCEDURE ApplTPlay(VAR buffer:ARRAY OF CHAR;numEvents,speed:INTEGER):INTEGER;
  67.  
  68. PROCEDURE ApplTRecord(VAR buffer:ARRAY OF CHAR; numEvents:INTEGER):INTEGER;
  69.  
  70. PROCEDURE ApplExit():INTEGER;
  71.  
  72. PROCEDURE EvntKeybd():INTEGER;
  73.  
  74. PROCEDURE EvntButton(bClicks,bMask,bState:INTEGER;
  75.                     VAR mouseX,mouseY,mouseBtn,keyState:INTEGER):INTEGER;
  76.  
  77. PROCEDURE EvntMouse(rectFlag,rectX,rectY,rectWidth,rectHeight:INTEGER;
  78.                     VAR mouseX,mouseY,mouseBtn,keyState:INTEGER):INTEGER;
  79.  
  80. PROCEDURE EvntMesag(VAR msgBuf:ARRAY OF INTEGER):INTEGER;
  81.  
  82. PROCEDURE EvntTimer(timerLo,timerHi:INTEGER):INTEGER;
  83.  
  84. PROCEDURE EvntMulti(evFlags,bClicks,bMask,bState,
  85.                     m1Flag,m1X,m1Y,m1Width,m1Height,
  86.                     m2Flag,m2X,m2Y,m2Width,m2Height:INTEGER;
  87.                     VAR msgBuf:ARRAY OF INTEGER;
  88.                     timerLo,timerHi:INTEGER;
  89.                     VAR mouseX,mouseY,mouseBtn,keyState,
  90.                     keyReturn,clickReturn:INTEGER):INTEGER;
  91.  
  92. PROCEDURE EvntDClick(speed,mode:INTEGER):INTEGER;
  93.  
  94. PROCEDURE MenuBar(mnTree:ADDRESS; mnFlag:INTEGER):INTEGER;
  95.  
  96. PROCEDURE MenuICheck(mnTree:ADDRESS; mnItem,mnSetting:INTEGER):INTEGER;
  97.  
  98. PROCEDURE MenuIEnable(mnTree:ADDRESS; mnItem,mnSetting:INTEGER):INTEGER;
  99.  
  100. PROCEDURE MenuTNormal(mnTree:ADDRESS; mnTitle,mnNormal:INTEGER):INTEGER;
  101.  
  102. PROCEDURE MenuText(mnTree:ADDRESS; mnItem:INTEGER; 
  103.                     VAR string:ARRAY OF CHAR):INTEGER;
  104.  
  105. PROCEDURE MenuRegister(apID:INTEGER; VAR string:ARRAY OF CHAR):INTEGER;
  106.  
  107. PROCEDURE ObjcAdd(objTree:ADDRESS; parent,child:INTEGER):INTEGER;
  108.  
  109. PROCEDURE ObjcDelete(objTree:ADDRESS; object:INTEGER):INTEGER;
  110.  
  111. PROCEDURE ObjcDraw(objTree:ADDRESS; objStart,objDepth,
  112.                     clipX,clipY,clipW,clipH:INTEGER):INTEGER;
  113.  
  114. PROCEDURE ObjcFind(objTree:ADDRESS; objStart,objDepth,x,y:INTEGER):INTEGER;
  115.  
  116. PROCEDURE ObjcOffset(objTree:ADDRESS; object:INTEGER;
  117.                     VAR x,y:INTEGER):INTEGER;
  118.  
  119. PROCEDURE ObjcOrder(objTree:ADDRESS; object,newPos:INTEGER):INTEGER;
  120.  
  121. PROCEDURE ObjcEdit(objTree:ADDRESS; object:INTEGER; ch:CHAR;
  122.                     VAR index:INTEGER; mode:INTEGER):INTEGER;
  123.  
  124. PROCEDURE ObjcChange(objTree:ADDRESS;
  125.                      objc,resvd,clipX,clipY,clipW,clipH,
  126.                      newstate,redraw:INTEGER):INTEGER;
  127.  
  128. PROCEDURE FormDo(dlogTree:ADDRESS; startObj:INTEGER):INTEGER;
  129.  
  130. PROCEDURE FormDial(formCmd,smallX,smallY,smallW,smallH,
  131.                     bigX,bigY,bigW,bigH:INTEGER):INTEGER;
  132.  
  133. PROCEDURE FormAlert(defBtn:INTEGER; VAR aString:ARRAY OF CHAR):INTEGER;
  134.  
  135. PROCEDURE FormError(error:INTEGER);
  136.  
  137. PROCEDURE FormCenter(dlogTree:ADDRESS; VAR newX,newY,newW,newH:INTEGER);
  138.  
  139. PROCEDURE GrafRubberBox(x,y,minX,minY:INTEGER; 
  140.                         VAR endWidth,endHeight:INTEGER):INTEGER;
  141.  
  142. PROCEDURE GrafDragBox(width,height,beginX,beginY,
  143.                         boundX,boundY,boundW,boundH:INTEGER;
  144.                         VAR endX,endY:INTEGER):INTEGER;
  145.  
  146. PROCEDURE GrafMBox(width,height,beginX,beginY,endX,endY:INTEGER):INTEGER;
  147.  
  148. PROCEDURE GrafGrowBox(smallX,smallY,smallW,smallH,
  149.                         largeX,largeY,largeW,largeH:INTEGER):INTEGER;
  150.  
  151. PROCEDURE GrafShrinkBox(smallX,smallY,smallW,smallH,
  152.                         largeX,largeY,largeW,largeH:INTEGER):INTEGER;
  153.  
  154. PROCEDURE GrafWatchBox(objTree:ADDRESS; 
  155.                         object,inState,outState:INTEGER):INTEGER;
  156.  
  157. PROCEDURE GrafSlideBox(objTree:ADDRESS; 
  158.                         parent,object,orientation:INTEGER):INTEGER;
  159.  
  160. PROCEDURE GrafHandle(VAR cellW,cellH,boxW,boxH:INTEGER):INTEGER;
  161.  
  162. PROCEDURE GrafMouse(formNum:INTEGER; formDef:ADDRESS):INTEGER;
  163.  
  164. PROCEDURE GrafMKState(VAR mouseX,mouseY,
  165.                     mouseBut,keyState:INTEGER):INTEGER;
  166.  
  167. PROCEDURE ScrpRead(VAR path:ARRAY OF CHAR):INTEGER;
  168.  
  169. PROCEDURE ScrpWrite(VAR path:ARRAY OF CHAR):INTEGER;
  170.  
  171. PROCEDURE FselInput(VAR defPath,defFname:ARRAY OF CHAR;
  172.                     VAR button:INTEGER):INTEGER;
  173.  
  174. PROCEDURE WindCreate(controls,fullX,fullY,fullW,fullH:INTEGER):INTEGER;
  175.  
  176. PROCEDURE WindOpen(windHandle,x,y,width,height:INTEGER):INTEGER;
  177.  
  178. PROCEDURE WindClose(windHandle:INTEGER):INTEGER;
  179.  
  180. PROCEDURE WindDelete(windHandle:INTEGER):INTEGER;
  181.  
  182. PROCEDURE WindGet(windHandle,flag:INTEGER; 
  183.                     VAR x,y,width,height:INTEGER):INTEGER;
  184.  
  185. PROCEDURE WindSet(windHandle,flag,inpt1,inpt2,inpt3,inpt4:INTEGER):INTEGER;
  186.  
  187. PROCEDURE WindFind(mouseX,mouseY:INTEGER):INTEGER; 
  188.  
  189. PROCEDURE WindUpdate(flag:INTEGER):INTEGER; 
  190.  
  191. PROCEDURE WindCalc(flag,controls,inX,inY,inW,inH:INTEGER;
  192.                     VAR outX,outY,outW,outH:INTEGER):INTEGER;
  193.  
  194. PROCEDURE RsrcLoad(VAR resFname:ARRAY OF CHAR):INTEGER;
  195.  
  196. PROCEDURE RsrcFree():INTEGER;
  197.  
  198. PROCEDURE RsrcGaddr(resType,resIndex:INTEGER; VAR resAddr:ADDRESS):INTEGER;
  199.  
  200. PROCEDURE RsrcSaddr(resType,resIndex:INTEGER; resAddr:ADDRESS):INTEGER;
  201.  
  202. PROCEDURE RsrcObfix(objTree:ADDRESS; object:INTEGER):INTEGER;
  203.  
  204. PROCEDURE ShelRead(VAR command,tail:ARRAY OF CHAR):INTEGER;
  205.  
  206. PROCEDURE ShelWrite(exit,graphics,gem:INTEGER;
  207.                     VAR command,tail:ARRAY OF CHAR):INTEGER;
  208.  
  209. PROCEDURE ShelFind(VAR pathname:ARRAY OF CHAR):INTEGER;
  210.  
  211. PROCEDURE ShelEnvrn(strPtr:ADDRESS; VAR searchStr:ARRAY OF CHAR):INTEGER;
  212.  
  213. END AEScalls.
  214.